Delphi 2.0 - Programmer's Utilities Power Pack/Delphi 2.0 Programmer's Utilities Power Pack.iso/e_to_l/imlib201/ublob.dfm/ublob.txt

Text File | 1996-09-15 | 23KB | 751 lines

object Form1: TForm1
  Left = 16
  Top = 30
  Width = 587
  Height = 418
  Caption = 'Uses JPSTAMP.DBF'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  OnCreate = FormCreate
  TextHeight = 13
  object Gauge1: TGauge
    Left = 306
    Top = 8
    Width = 22
    Height = 19
    Kind = gkPie
    ShowText = False
    BorderStyle = bsNone
    ForeColor = clRed
    BackColor = clBtnFace
    Progress = 0
  end
  object Label1: TLabel
    Left = 384
    Top = 81
    Width = 28
    Height = 13
    Caption = 'Width'
  end
  object Label2: TLabel
    Left = 384
    Top = 103
    Width = 31
    Height = 13
    Caption = 'Height'
  end
  object Label3: TLabel
    Left = 384
    Top = 124
    Width = 60
    Height = 13
    Caption = 'Bits per Pixel'
  end
  object Label4: TLabel
    Left = 384
    Top = 147
    Width = 32
    Height = 13
    Caption = 'Planes'
  end
  object Label5: TLabel
    Left = 384
    Top = 170
    Width = 29
    Height = 13
    Caption = 'Colors'
  end
  object Label6: TLabel
    Left = 384
    Top = 190
    Width = 68
    Height = 13
    Caption = 'Compression'
  end
  object Label7: TLabel
    Left = 384
    Top = 213
    Width = 44
    Height = 13
    Caption = 'Blob Size'
  end
  object DBNavigator1: TDBNavigator
    Left = 10
    Top = 242
    Width = 331
    Height = 25
    DataSource = DataSource1
    TabOrder = 0
  end
  object TDBMultiImage1: TDBMultiImage
    Left = 10
    Top = 35
    Width = 331
    Height = 208
    Hint = 'Double click to view picture'
    JPegDither = 4
    JPegResolution = 8
    JPegSaveQuality = 25
    JPegSaveSmooth = 0
    UPdateBlobAsJpeg = False
    DataField = 'BLOBIMAGE'
    DataSource = DataSource1
    TabOrder = 1
  end
  object AutodisplayCheckBox: TCheckBox
    Left = 16
    Top = 10
    Width = 73
    Height = 17
    Caption = 'Autodisplay'
    TabOrder = 2
    OnClick = AutodisplayCheckBoxClick
  end
  object DBEdit1: TDBEdit
    Left = 349
    Top = 56
    Width = 213
    Height = 20
    DataField = 'TEXT1'
    DataSource = DataSource1
    MaxLength = 0
    TabOrder = 3
  end
  object StretchCheckBox: TCheckBox
    Left = 94
    Top = 10
    Width = 61
    Height = 17
    Caption = 'Stretch it'
    TabOrder = 4
    OnClick = StretchCheckBoxClick
  end
  object GroupBox1: TGroupBox
    Left = 348
    Top = 260
    Width = 97
    Height = 123
    Caption = 'Jpeg Resolution'
    Color = clBtnFace
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 7
    object RadioButton1: TRadioButton
      Left = 8
      Top = 20
      Width = 80
      Height = 17
      Caption = '16 Colors'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = ResolutionClick
    end
    object RadioButton2: TRadioButton
      Left = 8
      Top = 56
      Width = 76
      Height = 17
      Caption = '256 Colors'
      Checked = True
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      TabStop = True
      OnClick = ResolutionClick
    end
    object RadioButton3: TRadioButton
      Left = 9
      Top = 92
      Width = 80
      Height = 17
      Hint = '(Should have true color VGA Card)'
      Caption = 'True Color'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = ResolutionClick
    end
  end
  object CenterCheckBox: TCheckBox
    Left = 164
    Top = 8
    Width = 73
    Height = 19
    Caption = 'Center it'
    State = cbChecked
    TabOrder = 8
    OnClick = CenterCheckBoxClick
  end
  object Edit1: TEdit
    Left = 349
    Top = 35
    Width = 213
    Height = 20
    Color = clFuchsia
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 12
  end
  object Edit2: TEdit
    Left = 452
    Top = 78
    Width = 110
    Height = 20
    Color = clYellow
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 14
  end
  object Edit3: TEdit
    Left = 452
    Top = 100
    Width = 110
    Height = 20
    Color = clYellow
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 15
  end
  object Edit4: TEdit
    Left = 452
    Top = 122
    Width = 110
    Height = 20
    Color = clYellow
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 16
  end
  object Edit5: TEdit
    Left = 452
    Top = 144
    Width = 110
    Height = 20
    Color = clYellow
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 17
  end
  object Edit6: TEdit
    Left = 452
    Top = 166
    Width = 110
    Height = 20
    Color = clYellow
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 18
  end
  object Edit7: TEdit
    Left = 452
    Top = 188
    Width = 110
    Height = 20
    Color = clYellow
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 19
  end
  object Edit8: TEdit
    Left = 452
    Top = 210
    Width = 110
    Height = 20
    Color = clTeal
    Font.Color = clAqua
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 20
  end
  object GroupBox2: TGroupBox
    Left = 451
    Top = 260
    Width = 112
    Height = 54
    Caption = 'Blob Update To'
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 21
    object RadioButton4: TRadioButton
      Left = 8
      Top = 15
      Width = 80
      Height = 17
      Caption = 'A Jpeg Blob'
      Checked = True
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TabStop = True
      OnClick = RadioButton4Click
    end
    object RadioButton5: TRadioButton
      Left = 8
      Top = 35
      Width = 80
      Height = 17
      Caption = 'A BMP Blob'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = RadioButton4Click
    end
  end
  object GroupBox3: TGroupBox
    Left = 452
    Top = 314
    Width = 112
    Height = 69
    Caption = 'Jpeg Update Options'
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 24
    object Label8: TLabel
      Left = 8
      Top = 18
      Width = 32
      Height = 13
      Caption = 'Quality'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 8
      Top = 44
      Width = 36
      Height = 13
      Caption = 'Smooth'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object SpinEdit1: TSpinEdit
      Left = 56
      Top = 16
      Width = 45
      Height = 22
      Hint = 'Jpg update quality factor (0..100)'
      Color = clNavy
      Font.Color = clYellow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      MaxValue = 100
      MinValue = 0
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0